(Buffer-menu-select): Fix for effect of header line.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index c7bb7009241a8c995764c8da3175baaf8dc8a1c5..696b7245d16ba169c363f41990db170e7906928e 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -373,7 +373,9 @@ in the selected frame."
        (others ())
        tem)
     (goto-char (point-min))
-    (while (search-forward "\n>" nil t)
+    (unless Buffer-menu-use-header-line
+      (forward-line 1))
+    (while (re-search-forward "^>" nil t)
       (setq tem (Buffer-menu-buffer t))
       (let ((buffer-read-only nil))
        (delete-char -1)